﻿Public Class DangNhap

    Private Sub btnOkDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkDangNhap.Click
        Dim temp As TaiKhoanDTO = New TaiKhoanDTO()
        Dim bus As TaiKhoanBUS = New TaiKhoanBUS()
        If (txtIDDangNhap.Text = temp.ID And txtPasswordDangNhap.Text = temp.Pass) Then
            If (temp.Loai = "1") Then
                Admin.Show()
            End If
        End If
        bus.GetTK(temp)
    End Sub
End Class